home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / HyperCard Files / St. John Bibleƒ / St. John Holy BibleStack©.sit / St. John Holy BibleStack© / St. John Holy BibleStack© / background_4093.txt < prev    next >
Encoding:
Text File  |  1988-09-19  |  9.2 KB  |  446 lines
  1. -- background: 4093 from stack: in. John Holy BibleStack┬⌐
  2. -- bmap block id: 4214
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: BSBk
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if scroll of field BibleStack <> 0 then
  9.     lock screen
  10.     set scroll of field BibleStack to 0
  11.     unlock screen with dissolve fast
  12.   end if
  13. end openCard
  14.  
  15.  
  16.  
  17. -- part 1 (field)
  18. -- low flags: 01
  19. -- high flags: 2007
  20. -- rect: left=0 top=19 right=315 bottom=512
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 0
  24. -- font id: 3
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: BibleStack
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   if the short name of this card is "BibleStack Notes" then exit mouseUp
  32.   set locktext of me to false
  33.   repeat 2 times
  34.     click at the clickLoc
  35.   end repeat
  36.   put "Find" && the selection
  37.   hide message
  38.   set locktext of me to true
  39.   send returnKey to Hypercard
  40. end mouseUp
  41.  
  42.  
  43. -- part 4 (button)
  44. -- low flags: 00
  45. -- high flags: 2000
  46. -- rect: left=283 top=316 right=341 bottom=317
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 26425 / 26425
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 2048
  53. -- line height: 16
  54. -- part name: Next
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   play "Click"
  58.   visual dissolve very fast
  59.   go to next card
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 6 (button)
  65. -- low flags: 00
  66. -- high flags: 2000
  67. -- rect: left=4 top=316 right=342 bottom=33
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 20098 / 20098
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Home
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   play "Click"
  79.   visual effect dissolve
  80.   go home
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 7 (button)
  86. -- low flags: 00
  87. -- high flags: 2000
  88. -- rect: left=411 top=318 right=342 bottom=438
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 8538 / 8538
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Find
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   play "Click"
  100.   global stringToFind
  101.   if the short name of bkgnd button ID 26 = "Select" then send mouseUp to bkgnd button ID 26
  102.   ask "Look for..."
  103.   if it is empty then exit mouseUp
  104.   put it into stringToFind
  105.   put "find String " & quote & stringToFind & quote
  106.   hide msg
  107.   type return
  108.   if the foundText is empty then answer "Text not found."
  109. end mouseUp
  110.  
  111.  
  112.  
  113.  
  114.  
  115. -- part 9 (button)
  116. -- low flags: 00
  117. -- high flags: 0000
  118. -- rect: left=376 top=317 right=342 bottom=404
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: Text Dump
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   play "Click"
  130.   answer "Export..." with "Selection" or "Entire Page" or "Cancel"
  131.   if it = "Selection" then
  132.     Ask "Save as..." with "Export"
  133.     if it <> empty then
  134.       open file it
  135.       write selection to file it
  136.       close file it
  137.       answer "Text Export to file " & it & " Complete!"
  138.     end if
  139.   else if it = "Entire Page" then
  140.     Ask "Save as..." with "Export"
  141.     if it <> empty then
  142.       open file it
  143.       write field 1 to file it
  144.       close file it
  145.       answer "Text Export to file " & it & " Complete!"
  146.     end if
  147.   end if
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 11 (button)
  153. -- low flags: 80
  154. -- high flags: 0000
  155. -- rect: left=467 top=315 right=342 bottom=499
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 29114 / 29114
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: 
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   visual effect iris close
  167.   doMenu Back
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 19 (button)
  173. -- low flags: 00
  174. -- high flags: 2000
  175. -- rect: left=445 top=317 right=342 bottom=473
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 29019 / 29019
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Top
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   play "Click"
  187.   visual Iris close to white
  188.   visual effect iris open
  189.   doMenu "Back"
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 20 (button)
  195. -- low flags: 80
  196. -- high flags: 0000
  197. -- rect: left=111 top=316 right=342 bottom=144
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: HIDE  MENUBAR
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   HIDE MENUBAR
  209.   HIDE BKGND BUTTON ID 20
  210.   SHOW BKGND BUTTON ID 10
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 21 (button)
  216. -- low flags: 80
  217. -- high flags: 0000
  218. -- rect: left=111 top=316 right=342 bottom=144
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: HIDE  MENUBAR
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   HIDE MENUBAR
  230.   HIDE BKGND BUTTON ID 11
  231.   SHOW BKGND BUTTON ID 21
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 22 (button)
  237. -- low flags: 80
  238. -- high flags: 0000
  239. -- rect: left=111 top=316 right=342 bottom=144
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: ShowMenu
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   Show MENUBAR
  251.   HIDE BKGND BUTTON ID 22
  252.   SHOW BKGND BUTTON ID 23
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 25 (button)
  258. -- low flags: 00
  259. -- high flags: 2000
  260. -- rect: left=100 top=316 right=342 bottom=127
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: Hide MenuBar
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   play "Click"
  272.   if the short name of me is "Hide MenuBar" then
  273.     hide menuBar
  274.     set name of me to "Show MenuBar"
  275.   else
  276.     show menuBar
  277.     set name of me to "Hide MenuBar"
  278.   end if
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 26 (button)
  284. -- low flags: 00
  285. -- high flags: 8002
  286. -- rect: left=228 top=314 right=330 bottom=285
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 0
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: Search
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   play "Click"
  298.   if the short name of me is "Select" then
  299.     Set locktext of field "BibleStack" to true
  300.     set name of me to "Search"
  301.   else
  302.     Set locktext of field "BibleStack" to false
  303.     set name of me to "Select"
  304.   end if
  305. end mouseUp
  306.  
  307.  
  308.  
  309.  
  310. -- part 27 (button)
  311. -- low flags: 00
  312. -- high flags: 2000
  313. -- rect: left=478 top=317 right=342 bottom=506
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 2162 / 2162
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: Back
  322. ----- HyperTalk script -----
  323. on mouseUp
  324.   play "Click"
  325.   visual Iris close to white
  326.   visual effect iris open
  327.   go to card id 3449
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 28 (button)
  333. -- low flags: 00
  334. -- high flags: 2000
  335. -- rect: left=36 top=316 right=342 bottom=63
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 32462 / 32462
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Help
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   play "Click"
  347.   visual iris close to white
  348.   visual iris open
  349.   go to card id 2915
  350. end mouseUp
  351.  
  352.  
  353.  
  354.  
  355. -- part 30 (button)
  356. -- low flags: 00
  357. -- high flags: 8000
  358. -- rect: left=10 top=0 right=23 bottom=186
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 1
  362. -- font id: 0
  363. -- text size: 12
  364. -- style flags: 2304
  365. -- line height: 16
  366. -- part name: Holy BibleStack⌐
  367. ----- HyperTalk script -----
  368. on mouseUp
  369.   go to card id 22825
  370. end mouseUp
  371.  
  372.  
  373.  
  374. -- part 31 (button)
  375. -- low flags: 00
  376. -- high flags: 2000
  377. -- rect: left=67 top=316 right=342 bottom=94
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 1
  381. -- font id: 0
  382. -- text size: 12
  383. -- style flags: 0
  384. -- line height: 16
  385. -- part name: Text Style
  386. ----- HyperTalk script -----
  387. on mouseUp
  388.   play "Click"
  389.   answer "Change Type Style of Text?" with "Cancel" or "OK"
  390.   if it is "OK" then
  391.     lock Screen
  392.     set cursor to 4
  393.     set cantModify of stack "Holy BibleStack┬⌐" to false
  394.     choose field tool
  395.     repeat two times
  396.       click at loc of field "BibleStack"
  397.     end repeat
  398.     doMenu "Text Style..."
  399.     set cursor to 4
  400.     choose browse tool
  401.     set cantModify of stack "Holy BibleStack┬⌐" to true
  402.   else exit mouseUp
  403. end mouseUp
  404.  
  405.  
  406.  
  407. -- part 33 (button)
  408. -- low flags: 00
  409. -- high flags: 2000
  410. -- rect: left=194 top=316 right=341 bottom=229
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 902 / 902
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: Prev
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   play "Click"
  422.   visual dissolve very fast
  423.   go to prev card
  424. end mouseUp
  425.  
  426.  
  427.  
  428. -- part 34 (button)
  429. -- low flags: 00
  430. -- high flags: A002
  431. -- rect: left=228 top=328 right=342 bottom=285
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 0 / 0
  434. -- text alignment: 1
  435. -- font id: 0
  436. -- text size: 12
  437. -- style flags: 0
  438. -- line height: 16
  439. -- part name: Editor
  440. ----- HyperTalk script -----
  441. on mouseUp
  442.   play "Click"
  443.   doMenu "HERE"
  444. end mouseUp
  445.  
  446.